

data <- read.csv("/Users/gnovoa/Library/Mobile Documents/com~apple~CloudDocs/Documents/Coloring in the Lines/RR/Yamil data/districtswDBK.csv")


#Distribution of District Concentrations

# *** APPENDIX FIGURE 15 ***

par(mfrow=c(1,2))
hist(data$b_pct_c, main='Distribution of Black CVAP %', col='lightblue',
     xlab='Black CVAP %')
hist(data$b_pct_c[data$b_pct_c>.45], main='Black CVAP Above 45%',
     col='lightblue',  xlab='B' ,xlim=c(.4,1))

# *** APPENDIX FIGURE 16 ***

par(mfrow=c(1,2))
hist(data$h_pct_c, main='Distribution of Hisp. CVAP %', col='lightblue',
     xlab='Hisp. CVAP %')
hist(data$h_pct_c[data$h_pct_c>.45], main='Hisp. CVAP Above 45%',
     col='lightblue',  xlab='B' ,xlim=c(.4,1))

# *** APPENDIX FIGURE 17 ***

par(mfrow=c(1,2))
hist(data$a_pct_c, main='Distribution of Asian CVAP %', col='lightblue',
     xlab='Asian CVAP %',xlim=c(0,1))
hist(data$a_pct_c[data$a_pct_c>.45], main='Asian CVAP Above 45%',
     col='lightblue',  xlab='B' ,xlim=c(.4,1))




